(rmail-summary-goto-msg): Simply the regexp

for finding the message number.  Check that a non-digit follows it.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index cf9d6bbd20047c41c2f4a554c01900a5b8fd0390..67a4f72c02acd1c3e8fee72d1a399de41f954bfd 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -807,7 +807,7 @@ Commands for sorting the summary:
                 (goto-char (point-max))
                 (rmail-summary-goto-msg)))
       (goto-char (point-min))
-      (if (not (re-search-forward (concat "^ *" (int-to-string n)) nil t))
+      (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t))
          (progn (or nowarn (message "Message %d not found" n))
                 (setq n curmsg)
                 (setq message-not-found t)